home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_5 / issue_07 / comment / J / files
Encoding:
Text File  |  1988-03-08  |  581 b   |  24 lines
  1. NB. file input output utility
  2. NB. drag to a J window to load
  3. NB. needs !Scrap and RAM disk
  4.  
  5. fileout=: '<Wimp$ScrapDir>.Jout'
  6. filein=: '<Wimp$ScrapDir>.Jin'
  7. fread =. 1!:1
  8. fwrite=. 1!:2
  9. sys   =. 0!:0
  10. xsys  =. 0!:1
  11.  
  12. NB. a is numeric matrix 
  13. NB. a=.i. 5 7
  14.  
  15. NB. syntax: fileout out a
  16.  
  17. out=:'' : ('b=. ,(":,.y.),.10{a.';'b=. ''-''((b=''_'')#i.#b)}b';  'b fwrite <x.') 
  18.  
  19. NB. syntax: e=. in filein
  20. NB. reads file into J from scrap 
  21.  in=:  ( 'c=. fread <y.';'c=. ''_''((c=''-'')#i.#c)}c' ; 'd=. c=10{a.' ; 'e=. d<;._2 c' ;'e=. ".>e') : ''
  22.  
  23. NB. useful syntax: fileout out function in filein
  24.